home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks95 / HexAbacus.sit / Hex Abacus / Objects.Def < prev    next >
Text File  |  1995-06-24  |  16KB  |  642 lines
  1. // Abacus
  2. //
  3. // Copyright 1995 Gary J Kacmarcik
  4. // All Rights Reserved
  5. //
  6. // Modification History:
  7. //  22 JUN 95  GJK  created at MacHack
  8. //  24 JUN 95  GJK  finished 1st version
  9.  
  10.  
  11. // package
  12. Instance SoftwarePackage 'Abacus' 1;
  13.          length: 32;
  14.     dateCreated: 49891;
  15.     timeCreated: 0xFFFFFFFF;
  16.    dateModified: 49892;
  17.    timeModified: 0x009D7EC0;
  18.          author: (AddressCard 'Gary Kacmarcik' 2);
  19.     installList: (ObjectList 'Install' 3);
  20.       receivers: (ObjectList 'Receiver' 4);
  21.    installFlags: nilObject;
  22. installParameters: nilObject;
  23.  installTargets: nilObject;
  24.    autoActivate: true;
  25.        citation: (Citation 5);                        // unique ID for package
  26.       publisher: (AddressCard 'Gary Kacmarcik' 2);
  27. persistentShadowSize: 0;
  28. persistentChangesSize: 0;
  29.   transientSize: 0;
  30. gotoActionSelector: 3.s;
  31.          hidden: false;
  32.    dontSaveData: false;
  33.  copyOnActivate: false;
  34.  dontDeactivate: false;
  35.      needsReset: false;
  36. systemPackageReserved6: false;
  37. systemPackageReserved7: false;
  38. systemPackageReserved8: false;
  39. systemPackageReserved9: false;
  40. systemPackageReserved10: false;
  41. systemPackageReserved11: false;
  42. systemPackageReserved12: false;
  43. systemPackageReserved13: false;
  44. systemPackageReserved14: false;
  45. systemPackageReserved15: false;
  46. systemPackageReserved16: false;
  47.          entry1: nilObject;
  48.          entry2: nilObject;
  49.          entry3: nilObject;
  50.          entry4: nilObject;
  51.          entry5: nilObject;
  52.          entry6: (ObjectList 'Standard Places' 6);
  53.          entry7: nilObject;
  54.          entry8: nilObject;
  55.          entry9: (ObjectList 'Objects With Help' 7);
  56.         entry10: (ObjectList 'Help On Objects' 8);
  57.         entry11: nilObject;
  58.         entry12: nilObject;
  59.         entry13: {40,7}; // (Scene 'Hallway' 88)
  60.         entry14: nilObject;
  61.         entry15: {6,183}; // (Image 'turkey' 1004)
  62.         entry16: nilObject;
  63.         entry17: nilObject;
  64.         entry18: nilObject;
  65.         entry19: nilObject;
  66.         entry20: nilObject;
  67.         entry21: nilObject;
  68.         entry22: nilObject;
  69.         entry23: nilObject;
  70.         entry24: nilObject;
  71.         entry25: (Image 'AbacusBead' 9);
  72.         entry26: (Abacus 'Abacus' 24);
  73.         entry27: (ObjectList 'Text' 52);    // all our strings are here
  74.         entry28: nilObject;
  75.         entry29: nilObject;
  76.         entry30: nilObject;
  77.         entry31: nilObject;
  78.         entry32: nilObject;
  79. End Instance;
  80.  
  81.  
  82. // scene
  83. Instance Scene 'Abacus' 16;
  84.            next: nilObject;
  85.        previous: nilObject;
  86.       superview: nilObject;
  87.         subview: (Abacus 'Abacus' 24);
  88.  relativeOrigin: <0.0,-8.0>;
  89.     contentSize: <480.0,256.0>;
  90.       viewFlags: 0x11005200;
  91.      labelStyle: {60,1}; // (TextStyle 8734)
  92.           color: 0xFF555555;
  93.        altColor: 0xFF000000;
  94.          shadow: nilObject;
  95.           sound: nilObject;
  96.          border: nilObject;
  97.      sceneFlags: 0;
  98.   stepBackScene: nilObject;
  99.    stepBackSpot: (Icon '8-ball' 14);
  100.           image: nilObject;
  101.       additions: nilObject;
  102.          screen: nilObject;
  103. End Instance;
  104.  
  105.  
  106. // abacus
  107. Instance Abacus 'Abacus' 24;
  108.            next: (TextField 25);
  109.        previous: nilObject;
  110.       superview: (Scene 'Abacus' 16);
  111.         subview: nilObject;
  112.  relativeOrigin: <-47.0,-2.0>;
  113.     contentSize: <325.0,190.0>;
  114.       viewFlags: 0x58085200;
  115.      labelStyle: iBook12;
  116.           color: 0xFFFFFFFF;
  117.        altColor: 0xFF000000;
  118.          shadow: nilObject;
  119.           sound: iSendSound;
  120.          border: (BorderImage 26);
  121.            row0: 0.s;
  122.            row1: 0.s;
  123.            row2: 0.s;
  124.            row3: 0.s;
  125.            row4: 0.s;
  126.            row5: 0.s;
  127.            row6: 0.s;
  128.            row7: 0.s;
  129.            row8: 0.s;
  130.            row9: 0.s;
  131.           row10: 0.s;
  132.           row11: 0.s;
  133.           row12: 0.s;
  134.           row13: 0.s;
  135.           row14: 0.s;
  136.           row15: 0.s;
  137.          endian: 0.s;        // 1 = little, 0 = big-endian
  138.            base: 0.s;        // 1 = decimal, 0 = hexadecimal
  139. End Instance;
  140.  
  141.  
  142. // ************
  143. // text strings
  144. // ************
  145.  
  146. Instance ObjectList 'Text' 52;
  147.          length: 1;
  148.           entry: (Text 53);
  149. End Instance;
  150.  
  151. Instance Text 53;
  152.            text: 'Sorry, only hexadecimal is supported in this version.';
  153. End Instance;
  154.  
  155.  
  156. // ********
  157. // citation
  158. // ********
  159.  
  160. // identifies package by name and version #
  161. Instance Citation 5;
  162.           title: (Identifier 'Abacus' 10);
  163.          author: (Telename 11);
  164.    majorEdition: 1;
  165.    minorEdition: 0;
  166. End Instance;
  167.  
  168. // unique entity name for TeleScript/MagicCap
  169. // this is used by the citation
  170. Instance Telename 11;
  171.       authority: (OctetString 18);
  172.        identity: (OctetString 19);
  173. End Instance;
  174.  
  175. // telename:authority
  176. // currently this is the authority for General Magic Developer Technical Support Sample Code
  177. // this needs to be changed
  178. Instance OctetString 18;
  179.           extra: $ 00D4 4FD6 6F90 162E 2F49 8F0F 1F3A F30A CF;
  180. End Instance;
  181.  
  182. // telename:identity
  183. Instance OctetString 19;
  184.           extra: $ 4162 6163 7573;
  185. End Instance;
  186.  
  187. // citation: title
  188. Instance Identifier 'Abacus' 10;
  189. End Instance;
  190.  
  191.  
  192. // ******
  193. // images
  194. // ******
  195.  
  196. // bead on abacus
  197. Instance Image 'AbacusBead' 9;
  198.            next: nilObject;
  199.        previous: nilObject;
  200.      imageFlags: 0;
  201.       imageSize: 16,16;
  202.      resolution: 256.s;
  203.           depth: 2.s;
  204.        centerPt: 8,8;
  205.           crc32: 0x791AD23A;
  206.           extra: $ 003F FC00 03EA ABC0 0EAA AAB0 3AAA 06AC 3AAA 90A8 EAAA AAAB EAAA AAAB EAAA AAAB \
  207.                  $ EAAA AAAB EAAA AAAB FAAA AAAB 3AAA AAAC 3EAA AABC 0FAA AAB0 03FA AAC0 003F FC00;
  208. End Instance;
  209.  
  210. // icon in DA drawer
  211. Instance Icon '8-ball' 14;
  212.            next: nilObject;
  213.        previous: nilObject;
  214.       superview: nilObject;
  215.         subview: nilObject;
  216.  relativeOrigin: <-8.0,-37.5>;
  217.     contentSize: <37.0,37.0>;
  218.       viewFlags: 0x50081200;
  219.      labelStyle: iBook12Center;
  220.           color: 0xFFFFFFFF;
  221.        altColor: 0xFF000000;
  222.          shadow: nilObject;
  223.           sound: iTouchSound;
  224.           image: iEightBallImage;
  225.     destination: (Scene 'Abacus' 16);
  226. nativeContainer: iGameRoomShelf;
  227.  nativePosition: <-76.5,-26.5>;
  228. End Instance;
  229.  
  230. // border image
  231. Instance BorderImage 26;
  232.            next: nilObject;
  233.        previous: nilObject;
  234.      imageFlags: 0x80800000;
  235.       imageSize: 27,25;
  236.      resolution: 256.s;
  237.           depth: 2.s;
  238.        centerPt: 13,12;
  239.           crc32: 0x782143F8;
  240.     contentRect: 5,5,22,20;
  241.      repeatRect: 5,5,22,20;
  242.           extra: $ FBFF 02FC 00C0 FC00 022C 00C5 FC55 026C 00C6 FDAA 03A9 6C00 C6FD FF04 FC6C 00C6 \
  243.                  $ C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 \
  244.                  $ C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 \
  245.                  $ C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 \
  246.                  $ C0FE 0004 0C6C 00C6 C0FE 0004 0C6C 00C6 C0FE 0003 0C6C 00C6 FDFF 03FC 6C00 C5FC \
  247.                  $ 0002 6C00 C5FC 5502 6C00 EAFC AA01 AC00 FBFF 01FC 00;
  248. End Instance;
  249.  
  250.  
  251. // *************
  252. // install lists
  253. // *************
  254.  
  255. // list of objects to install in the system
  256. Instance ObjectList 'Install' 3;
  257.          length: 2;
  258.          entry1: (Icon '8-ball' 14);
  259.          entry2: (NameCard 'Gary Kacmarcik' 15);
  260. End Instance;
  261.  
  262. // where to install the above objects
  263. Instance ObjectList 'Receiver' 4;
  264.          length: 2;
  265.          entry1: iDeskAccessoryWindow;
  266.          entry2: iNameCardsStack;
  267. End Instance;
  268.  
  269. // list of scenes
  270. Instance ObjectList 'Standard Places' 6;
  271.          length: 1;
  272.          entry1: (Scene 'Abacus' 16);
  273. End Instance;
  274.  
  275.  
  276. // ************
  277. // help / about
  278. // ************
  279.  
  280. // list of objects that need help
  281. Instance ObjectList 'Objects With Help' 7;
  282.          length: 1;
  283.          entry1: (Scene 'Abacus' 16);
  284. End Instance;
  285.  
  286. // how to provide help to the aforementioned objects
  287. Instance ObjectList 'Help On Objects' 8;
  288.          length: 1;
  289.          entry1: (Text 17);
  290. End Instance;
  291.  
  292. Instance Text 17;
  293.            text: 'About Abacus\nAbacus 1.0 Gary J Kacmarcik';
  294. End Instance;
  295.  
  296.  
  297. // *************
  298. // personal info
  299. // *************
  300.  
  301. Instance NameCard 'Gary Kacmarcik' 15;
  302.            next: nilObject;
  303.        previous: nilObject;
  304.       superview: nilObject;
  305.         subview: nilObject;
  306.  relativeOrigin: <-28.0,8.0>;
  307.     contentSize: <392.0,229.0>;
  308.       viewFlags: 0x50005200;
  309.      labelStyle: iBook12;
  310.           color: 0;
  311.        altColor: 0;
  312.          shadow: nilObject;
  313.           sound: nilObject;
  314.            form: iAddressesForm;
  315.           stack: nilObject;
  316.       cardFlags: 0x404000E7;
  317.     addressCard: (AddressCard 'Gary Kacmarcik' 2);
  318.         profile: nilObject;
  319. End Instance;
  320.  
  321. Instance AddressCard 'Gary Kacmarcik' 2;
  322.       addresses: (ObjectList 12);
  323.    assignedName: nilObject;
  324.        category: 2;
  325. credentialsList: nilObject;
  326.     displayView: nilObject;
  327.    facilityList: nilObject;
  328.      lastChange: nilObject;
  329.       magicName: (MagicmailName 'Gary Kacmarcik' 13);
  330.  nativeLanguage: nilObject;
  331.        nickname: nilObject;
  332. preferredPlatform: nilObject;
  333.       lastLabel: nilObject;
  334.           image: nilObject;
  335. End Instance;
  336.  
  337. Instance NameKey 34;
  338.        keyIndex: 1;
  339.       keyLength: 17;
  340.         keyType: 0;
  341. End Instance;
  342.  
  343. Instance ObjectList 12;
  344.          length: 2;
  345.          entry1: (PostalLabel 'main office' 20);
  346.          entry2: (InternetMailLabel 21);
  347. End Instance;
  348.  
  349. // magic mail address
  350.  
  351. Instance MagicmailName 'Gary Kacmarcik' 13;
  352.         keyList: (ObjectList 22);
  353.        nameText: (Text 23);
  354. End Instance;
  355.  
  356. Instance ObjectList 22;
  357.          length: 1;
  358.          entry1: (NameKey 34);
  359. End Instance;
  360.  
  361. Instance Text 23;
  362.            text: 'Gary Kacmarcik';
  363. End Instance;
  364.  
  365. // internet address
  366.  
  367. Instance InternetMailLabel 21;
  368.     description: (Text 27);
  369.           image: {6,291}; // (Image 8442)
  370.         privacy: nilObject;
  371.     addressText: (Text 28);
  372. End Instance;
  373.  
  374. Instance Text 27;
  375.            text: 'Internet';
  376. End Instance;
  377.  
  378. Instance Text 28;
  379.            text: 'platypus@netcom.com';
  380. End Instance;
  381.  
  382. // postal label
  383.  
  384. Instance PostalLabel 'main office' 20;
  385.     description: iMainOfficeDescription;
  386.           image: iHomeImage;
  387.         privacy: nilObject;
  388.            city: (Text 29);
  389.     countryName: (Text 30);
  390.         geoCode: nilObject;
  391.        nameText: nilObject;
  392.      postalCode: (Text 31);
  393.    postalRegion: (Text 32);
  394.   streetAddress: (Text 33);
  395. End Instance;
  396.  
  397. Instance Text 33;
  398.            text: '8500 148th Ave NE #G3024';
  399. End Instance;
  400.  
  401. Instance Text 29;
  402.            text: 'Redmond';
  403. End Instance;
  404.  
  405. Instance Text 32;
  406.            text: 'WA';
  407. End Instance;
  408.  
  409. Instance Text 30;
  410.            text: 'USA';
  411. End Instance;
  412.  
  413. Instance Text 31;
  414.            text: '98052';
  415. End Instance;
  416.  
  417.  
  418. // ***************
  419. // abacus controls
  420. // ***************
  421.  
  422. Instance TextField 25;
  423.            next: (Switch 35);
  424.        previous: (Abacus 'Abacus' 24);
  425.       superview: (Scene 'Abacus' 16);
  426.         subview: nilObject;
  427.  relativeOrigin: <181.0,-82.0>;
  428.     contentSize: <100.0,20.0>;
  429.       viewFlags: 0x700B1200;
  430.      labelStyle: {60,1}; // (TextStyle 8734)
  431.           color: 0xFF000000;
  432.        altColor: 0xFF000000;
  433.          shadow: nilObject;
  434.           sound: nilObject;
  435.          border: {120,36}; // (BorderImage 2879)
  436.      fieldFlags: 0x81040011;
  437.       dataStore: (Text 36);
  438.       baseStyle: (TextStyle 41);
  439. End Instance;
  440.  
  441. Instance Text 36;
  442.            text: 'Bead Ordering';
  443. End Instance;
  444.  
  445. Instance TextField 37;
  446.            next: (Switch 38);
  447.        previous: (Switch 35);
  448.       superview: (Scene 'Abacus' 16);
  449.         subview: nilObject;
  450.  relativeOrigin: <181.0,16.0>;
  451.     contentSize: <100.0,20.0>;
  452.       viewFlags: 0x50001200;
  453.      labelStyle: {60,1}; // (TextStyle 8734)
  454.           color: 0xFF000000;
  455.        altColor: 0xFF000000;
  456.          shadow: nilObject;
  457.           sound: nilObject;
  458.          border: {120,36}; // (BorderImage 2879)
  459.      fieldFlags: 0x81040011;
  460.       dataStore: (Text 39);
  461.       baseStyle: (TextStyle 41);
  462. End Instance;
  463.  
  464. Instance Text 39;
  465.            text: 'Base';
  466. End Instance;
  467.  
  468. Instance TextStyle 41;
  469.           color: (Color 40);
  470.      actualFont: {153,3}; // (BitmapFont 8749)
  471. canvasResolution: 256,256;
  472.   requestedFont: (FontDescription 43);
  473.       alignment: 0.s;
  474.         leading: 0.s;
  475.          spread: 0.s;
  476.      extraSpace: 0.s;
  477. End Instance;
  478.  
  479. Instance Color 40;
  480.             rgb: 0xFF555555;
  481. End Instance;
  482.  
  483. Instance FontDescription 43;
  484.  fontIdentifier: nilObject;
  485.        fontName: (Text 44);
  486.        fontSize: 10;
  487.          isBold: false;
  488.        isItalic: false;
  489.    isUnderlined: false;
  490. End Instance;
  491.  
  492. Instance Text 44;
  493.            text: 'Fat Caps';
  494. End Instance;
  495.  
  496.  
  497. Instance TextField 42;
  498.            next: (TextField 45);
  499.        previous: (Switch 38);
  500.       superview: (Scene 'Abacus' 16);
  501.         subview: nilObject;
  502.  relativeOrigin: <196.0,-25.5>;
  503.     contentSize: <78.0,18.0>;
  504.       viewFlags: 0x700B1200;
  505.      labelStyle: {60,13}; // (TextStyle 8767)
  506.           color: 0xFF000000;
  507.        altColor: 0xFF000000;
  508.          shadow: nilObject;
  509.           sound: nilObject;
  510.          border: {35,5}; // (BorderLine 'Gray 1' 472)
  511.      fieldFlags: 0x01040011;
  512.       dataStore: (Text 46);
  513.       baseStyle: {60,1}; // (TextStyle 8734)
  514. End Instance;
  515.  
  516. Instance Text 46;
  517.            text: 'Big Endian';
  518. End Instance;
  519.  
  520. Instance TextField 45;
  521.            next: (TextField 47);
  522.        previous: (TextField 42);
  523.       superview: (Scene 'Abacus' 16);
  524.         subview: nilObject;
  525.  relativeOrigin: <196.0,47.5>;
  526.     contentSize: <78.0,18.0>;
  527.       viewFlags: 0x700B1200;
  528.      labelStyle: {60,13}; // (TextStyle 8767)
  529.           color: 0xFF000000;
  530.        altColor: 0xFF000000;
  531.          shadow: nilObject;
  532.           sound: nilObject;
  533.          border: {35,5}; // (BorderLine 'Gray 1' 472)
  534.      fieldFlags: 0x01040011;
  535.       dataStore: (Text 48);
  536.       baseStyle: {60,1}; // (TextStyle 8734)
  537. End Instance;
  538.  
  539. Instance Text 48;
  540.            text: 'Decimal';
  541. End Instance;
  542.  
  543. Instance TextField 47;
  544.            next: (TextField 49);
  545.        previous: (TextField 45);
  546.       superview: (Scene 'Abacus' 16);
  547.         subview: nilObject;
  548.  relativeOrigin: <196.0,-51.5>;
  549.     contentSize: <78.0,18.0>;
  550.       viewFlags: 0x700B1200;
  551.      labelStyle: {60,13}; // (TextStyle 8767)
  552.           color: 0xFF000000;
  553.        altColor: 0xFF000000;
  554.          shadow: nilObject;
  555.           sound: nilObject;
  556.          border: {35,5}; // (BorderLine 'Gray 1' 472)
  557.      fieldFlags: 0x01040011;
  558.       dataStore: (Text 50);
  559.       baseStyle: {60,1}; // (TextStyle 8734)
  560. End Instance;
  561.  
  562. Instance Text 50;
  563.            text: 'Li\'l Endian';
  564. End Instance;
  565.  
  566. Instance TextField 49;
  567.            next: nilObject;
  568.        previous: (TextField 47);
  569.       superview: (Scene 'Abacus' 16);
  570.         subview: nilObject;
  571.  relativeOrigin: <196.0,72.5>;
  572.     contentSize: <78.0,18.0>;
  573.       viewFlags: 0x700B1200;
  574.      labelStyle: {60,13}; // (TextStyle 8767)
  575.           color: 0xFF000000;
  576.        altColor: 0xFF000000;
  577.          shadow: nilObject;
  578.           sound: nilObject;
  579.          border: {35,5}; // (BorderLine 'Gray 1' 472)
  580.      fieldFlags: 0x01040011;
  581.       dataStore: (Text 51);
  582.       baseStyle: {60,1}; // (TextStyle 8734)
  583. End Instance;
  584.  
  585. Instance Text 51;
  586.            text: 'Hex';
  587. End Instance;
  588.  
  589. // ********
  590. // switches
  591. // ********
  592.  
  593. // endian switch
  594. Instance Switch 35;
  595.            next: (TextField 37);
  596.        previous: (TextField 25);
  597.       superview: (Scene 'Abacus' 16);
  598.         subview: nilObject;
  599.  relativeOrigin: <142.0,-38.5>;
  600.     contentSize: <26.0,50.0>;
  601.       viewFlags: 0x50081200;
  602.      labelStyle: {60,13}; // (TextStyle 8767)
  603.           color: 0xFFFFFFFF;
  604.        altColor: 0xFF000000;
  605.          shadow: nilObject;
  606.           sound: {33,15}; // (Sound 'Switch' 459)
  607.          border: nilObject;
  608.           image: {6,476}; // (Image 'upSw2' 2947)
  609.       textStyle: nilObject;
  610.    controlFlags: 0x14000000;
  611.           level: 1.0;
  612.             min: 0.0;
  613.             max: 1.0;
  614.          target: (Abacus 'Abacus' 24);
  615. targetAttribute: operation_Endian;
  616. End Instance;
  617.  
  618. Instance Switch 38;
  619.            next: (TextField 42);
  620.        previous: (TextField 37);
  621.       superview: (Scene 'Abacus' 16);
  622.         subview: nilObject;
  623.  relativeOrigin: <142.0,60.5>;
  624.     contentSize: <26.0,50.0>;
  625.       viewFlags: 0x50081200;
  626.      labelStyle: {60,13}; // (TextStyle 8767)
  627.           color: 0xFFFFFFFF;
  628.        altColor: 0xFF000000;
  629.          shadow: nilObject;
  630.           sound: {33,15}; // (Sound 'Switch' 459)
  631.          border: nilObject;
  632.           image: {6,476}; // (Image 'upSw2' 2947)
  633.       textStyle: nilObject;
  634.    controlFlags: 0x14000000;
  635.           level: 1.0;
  636.             min: 0.0;
  637.             max: 1.0;
  638.          target: (Abacus 'Abacus' 24);
  639. targetAttribute: operation_Base;
  640. End Instance;
  641.  
  642.